#!/usr/bin/perl

# $Id$

=head1 NAME

Swignition::DataModel::NodeWithInternalTriples - Represents an RDF literal.

=cut

package Swignition::DataModel::NodeWithInternalTriples;

use Swignition::DataModel::Node;
use Swignition::MagicString;

use constant TRUE      =>  1;
use constant FALSE     =>  0;
use strict;

our @ISA = ("Swignition::DataModel::Node");
our $VERSION = '0.1';

sub get_triples
{
	my $this    = shift;
	my $triples = $this->_get_triples(@_);
	
	foreach my $t (@$triples)
	{
		$t->{'_'}->{'usage'}->{'triple_of'} = $this->{'_'}->{'usage'}->{'node_in'};
	}
	
	return $triples;
}

sub get_nodes
{
	my $this  = shift;
	return $this->_get_nodes(@_);
}

1;
